(define (adjion-set x set)
    (if (> x (car set))
        (cons (car set) (adjion-set x (cdr set)))
        (cons x set)
    )
)
(display (adjion-set 7 (list 2 4 6 8 10)))
(exit)